﻿Imports System.IO
Imports System.Xml.Linq
Imports System.Net
imports System.Windows.Controls.DataVisualization.Charting

Partial Public Class MainPage
    Inherits UserControl
	Dim doc as XDocument
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub UserControl_Loaded(ByVal sender as Object, ByVal e as System.Windows.RoutedEventArgs)
    	
		
		Dim wc as WebClient = new WebClient()
		AddHandler wc.OpenReadCompleted,AddressOf wc_OpenReadCompleted
		
		wc.OpenReadAsync(new Uri("../getTagCount.aspx",UriKind.RelativeOrAbsolute))
		'me.textBlock.Text = "yes"
		
    End Sub

	Private Sub wc_OpenReadCompleted(ByVal sender as Object,ByVal e as OpenReadCompletedEventArgs)
	if (e.Error) isNot Nothing then
		me.textBlock.text = e.Error.message
		return
	end if
	
	doc  = XDocument.Load(e.result)
	
	
    End Sub



	


End Class

